global Position, Stammcopy, Bearbeiten, Hunderter, Ansehen, Suchliste, Suchzeile, Zeilenzahl, Paarung, Vater
if Stammcopy is not empty then
if Position is 100 then
put Hunderter & "/ 0" && Stammcopy & return after field "Suchergebnis"
else if Position < 10 then
put (Hunderter - 1) & "/ " & Position && Stammcopy & return after field "Suchergebnis"
else
put (Hunderter - 1) & "/" & Position && Stammcopy & return after field "Suchergebnis"
end if
put "Stamm eingef├╝gt" into field "Dialog"
idleCursor(hand)
put empty into Stammcopy
else if Paarung is "Zweiter" then
-- 2. Stamm wählen
get word 2 of the clickLine
put line it of me into Mutter
if Mutter is empty then
answer "The line is empty"
exit mouseUp
end if
-- / wegmachen
get word 1 of research("/",Mutter,"chunk nometa")
put empty into char it of Mutter
if word 3 of Mutter is not "ª" and word 3 of Mutter is not "a" then
answer "The strain is not haploid or its mating type is unknown!"
exit mouseUp
end if
if (the chartonum of word 3 of Vater) is (the chartonum of word 3 of Mutter) then
answer "Both strains have the same mating type!" with "Mate" or "Cancel"
if it is "Cancel" then exit mouseUp
end if
put empty into Paarung
idleCursor(hand)
go card "Genauswahl"
send "Paaren Vater,Mutter" to background button "Mate Strains" of card "Genauswahl"
else if Paarung is true then
get word 2 of the clickLine
put line it of me into Vater
if Vater is empty then
answer "The line is empty"
exit mouseUp
end if
-- / wegmachen
get word 1 of research("/",Vater,"chunk nometa")
put empty into char it of Vater
if word 3 of Vater is not "ª" and word 3 of Vater is not "a" then
answer "The strain is not haploid or its mating type is unknown!"
exit mouseUp
end if
put "Zweiter" into Paarung
put "Choose second mating partner" into field "Dialog"
answer "Choose second mating partner!"
-- 2. Stamm für Paarung wählen
else if Ansehen is true then
put word 2 of the clickLine into Suchzeile
if line Suchzeile of field "Suchergebnis" is empty then exit mouseUp
put the number of lines of field "Suchergebnis" into Zeilenzahl
put word 3 of the ID of this card into Suchliste
-- zur genauen Betrachtung der einzelnen Stämme
set cursor to 4
set lockScreen to true
go card "Genauswahl"
send mouseUp to button "Blättern"
hide button "Stamm weiterbearbeiten"
hide card field "bearbeiten"
show background button "Search Res."
put word 1 of line Suchzeile of field "Suchergebnis" of card ID Suchliste into field "Position"
put word 2 of line Suchzeile of field "Suchergebnis" of card ID Suchliste into field "Stammname"
set the hilite of background button "a" to false
set the hilite of background button "a lpha" to false
set the hilite of background button "a 2" to false
set the hilite of background button "a lpha2" to false
if the CharToNum of char 1 of word 3 of line Suchzeile of field "Suchergebnis" of card ID Suchliste is 187 then
set the hilite of background button "a lpha" to true
else
if char 1 of word 3 of line Suchzeile of field "Suchergebnis" of card ID Suchliste is "a" then
set the hilite of background button "a" to true
end if
end if
if the number of chars of word 3 of line Suchzeile of field "Suchergebnis" of card ID Suchliste is 3 then
set the hilite of background button "diploid" to true
show background button "a 2"
show background button "a lpha2"
if the CharToNum of char 3 of word 3 of line Suchzeile of field "Suchergebnis" of card ID Suchliste is 187 then
set the hilite of background button "a lpha2" to true
else
if char 3 of word 3 of line Suchzeile of field "Suchergebnis" of card ID Suchliste is "a" then
set the hilite of background button "a 2" to true
end if
end if
end if
-- PT setzen
repeat with R├╝ber = 4 to the number of words of line Suchzeile of field "Suchergebnis" of card ID Suchliste
get word R├╝ber of line Suchzeile of field "Suchergebnis" of card ID Suchliste
if it is tab then
get word (R├╝ber + 1) of line Suchzeile of field "Suchergebnis" of card ID Suchliste
repeat with Buchstabe = 2 to the number of chars of it
if chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werden
put space after field "Plasmid"
else
put char Buchstabe of it after field "Plasmid"
end if
end repeat
get word (R├╝ber + 3) of line Suchzeile of field "Suchergebnis" of card ID Suchliste
repeat with Buchstabe = 1 to the number of chars of it
if chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werden
put space after field "AltNamen"
else
put char Buchstabe of it after field "AltNamen"
end if
end repeat
get word (R├╝ber + 5) of line Suchzeile of field "Suchergebnis" of card ID Suchliste
repeat with Buchstabe = 1 to the number of chars of it
if chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werden
put space after field "Herkunft"
else
put char Buchstabe of it after field "Herkunft"
end if
end repeat
get word (R├╝ber + 7) of line Suchzeile of field "Suchergebnis" of card ID Suchliste
repeat with Buchstabe = 1 to the number of chars of it
if chartoNum of char Buchstabe of it is 202 then -- Option/Space getauscht werden
put space after field "Stammkommentar"
else
put char Buchstabe of it after field "Stammkommentar"
end if
end repeat
exit repeat
else
put it & return after field "Stammauswahl"
end if
end repeat
-- Auslesen der Daten
else
if Bearbeiten is true then
delete the clickLine
end if
end if
end mouseUp
on mouseEnter
global Ansehen, Bearbeiten, Stammcopy, Paarung
if (Bearbeiten is not true) and (Stammcopy is empty) then
if Paarung is true or Paarung is "Zweiter" then
idleCursor("Shmoo")
else
idleCursor("Lupe")
end if
put true into Ansehen
end if
end mouseEnter
on mouseLeave
global Ansehen
if Ansehen is true then
idleCursor(hand)
put false into Ansehen
end if
end mouseLeave</script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>179</top>
<right>206</right>
<bottom>197</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Kartenname:</name>
<script></script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>198</top>
<right>206</right>
<bottom>216</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Kartenbesitzer:</name>
<script></script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>217</top>
<right>149</right>
<bottom>246</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Daten</name>
<script></script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>208</left>
<top>179</top>
<right>446</right>
<bottom>245</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Überblick</name>
<script></script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>236</left>
<top>251</top>
<right>275</right>
<bottom>301</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1007</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Drucken</name>
<script>on mouseUp
unmark all cards
mark this card
open report printing with template "Search List"
if the result is "No such report template" then
answer "The template is missing. Please create a template ΓÇ£Search ListΓÇ¥ for this stack."
else if the result is not empty then
put the result
answer "Can't print search results!"
else
print marked cards
end if
close printing
unmark this card
end mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>221</left>
<top>301</top>
<right>288</right>
<bottom>332</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Info Drucken</name>
<script>on mouseUp
show field "Druckinfo"
end mouseUp
</script>
</part>
<part>
<id>15</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>69</left>
<top>92</top>
<right>220</right>
<bottom>179</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Weitersuchinfo</name>
<script>on mouseup
hide field "Weitersuchinfo"
end mouseup
</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>67</left>
<top>197</top>
<right>204</right>
<bottom>249</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Druckinfo</name>
<script>on mouseup
hide field "Druckinfo"
end mouseup
</script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>295</left>
<top>251</top>
<right>334</right>
<bottom>301</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>17481</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Exportieren</name>
<script>on mouseUp
ask file "Please, name the output file!"
if it is empty then exit mouseUp
set cursor to 4
put it into Export
open file Export
write "Name of the exported register:" && field "Kartenname:" & return to file Export
write "Name of creator:" && field "Kartenbesitzer:" & return to file Export
write field "Daten" & return to file Export
write "Commentary:" && field "Überblick" & return to file Export
repeat with Zeile = 1 to the number of lines of field "Suchergebnis"
write line Zeile of field "Suchergebnis" & return to file Export
end repeat
close file Export
end mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>287</left>
<top>301</top>
<right>352</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Datei sichern</name>
<script>on mouseUp
show field "Exportinfo"
end mouseUp
</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>51</left>
<top>38</top>
<right>235</right>
<bottom>138</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Exportinfo</name>
<script>on mouseup
hide field "Exportinfo"
end mouseup
</script>
</part>
<part>
<id>22</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>71</left>
<top>85</top>
<right>272</right>
<bottom>171</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Sicherninfo</name>
<script>on mouseup
hide field "Sicherninfo"
end mouseup
</script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>409</left>
<top>251</top>
<right>448</right>
<bottom>301</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>6758</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Bearbeiten</name>
<script>on mouseUp
global Bearbeiten
if Bearbeiten is true then
put false into Bearbeiten
set the icon of background button "Bearbeiten" to "Bearbeiten"
put "Modify" & return & "Card" into field "Bearbeiten"
set lockText of field "Kartenname:" to true
set lockText of field "Kartenbesitzer:" to true
put "Modified" && the date into line 2 of field "Daten"
put "Modification terminated" into field "Dialog"
else
put true into Bearbeiten
set the icon of background button "Bearbeiten" to "Nicht bearbeiten"
put "Terminate" & return & "Modification" into field "Bearbeiten"
set lockText of field "Kartenname:" to false
set lockText of field "Kartenbesitzer:" to false
put "Erasure of strains by clicking in the field ΓÇ£Search resultsΓÇ¥, and modification of register and creator names enabled." into field "Dialog"
end if
end mouseUp</script>
</part>
<part>
<id>25</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>24</left>
<top>33</top>
<right>206</right>
<bottom>119</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Bearbinfo</name>
<script>on mouseup
hide field "Bearbinfo"
end mouseup
</script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>466</left>
<top>251</top>
<right>505</right>
<bottom>301</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>20186</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Ordnen</name>
<script>on mouseUp
sort field "Suchergebnis"
end mouseUp</script>
</part>
<part>
<id>27</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>457</left>
<top>303</top>
<right>512</right>
<bottom>333</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Sortieren</name>
<script>on mouseUp
show field "Sortierinfo"
end mouseUp
</script>
</part>
<part>
<id>28</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>19</left>
<top>126</top>
<right>238</right>
<bottom>179</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Sortierinfo</name>
<script>on mouseup
hide field "Sortierinfo"
end mouseup
</script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>482</left>
<top>215</top>
<right>511</right>
<bottom>237</bottom>
</rect>
<style>roundrect</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>8419</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Vorwärts</name>
<script>on mouseUp
lock screen
go next card
if the short name of this card is "Findetemplate" then
set lockMessages to true
go card "Stammsammlung"
go next card
openCard
end if
end mouseUp
</script>
</part>
<part>
<id>30</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>451</left>
<top>215</top>
<right>480</right>
<bottom>237</bottom>
</rect>
<style>roundrect</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>17779</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Zur├╝ck</name>
<script>on mouseUp
lock screen
closeCard
set lockMessages to true
go previous card
if the short name of this card is "Stammsammlung" then
go card "Findetemplate"
go previous card
end if
openCard
end mouseUp
</script>
</part>
<part>
<id>31</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>247</top>
<right>170</right>
<bottom>342</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>condense</textStyle>
<textHeight>16</textHeight>
<name>Dialog</name>
<script></script>
</part>
<part>
<id>33</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>392</left>
<top>303</top>
<right>461</right>
<bottom>329</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>10</textHeight>
<name>Bearbeiten</name>
<script>on mouseUp
show field "Bearbinfo"
end mouseUp
</script>
</part>
<part>
<id>43</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>178</left>
<top>207</top>
<right>302</right>
<bottom>247</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>L├╢schinfo</name>
<script>on mouseup
hide field "L├╢schinfo"
end mouseup
</script>
</part>
<part>
<id>44</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>3</left>
<top>22</top>
<right>451</right>
<bottom>249</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Info</name>
<script>on mouseUp
hide field "Info"
set the scroll of field "Info" to 0
end mouseUp</script>
</part>
<part>
<id>46</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>116</left>
<top>162</top>
<right>316</right>
<bottom>247</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Lager</name>
<script></script>
</part>
<part>
<id>47</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>156</left>
<top>120</top>
<right>356</right>
<bottom>205</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Dominanz</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>16</id>
<text>Prints field "Search results" on the connected printer.
</text>
</content>
<content>
<layer>background</layer>
<id>15</id>
<text>After demanding the search criteria, a new card will be added, containing all strains matching the criteria.</text>
</content>
<content>
<layer>background</layer>
<id>19</id>
<text>Saves name of the creator and card, the card info, the data of the creation and the last modification of the card, and the list of strains to a "text only" file.</text>
</content>
<content>
<layer>background</layer>
<id>22</id>
<text>Asks for creator and name of the card and includes the card in the collection (otherwise it is deleted (after check-back) upon closing)</text>
</content>
<content>
<layer>background</layer>
<id>25</id>
<text>Enables modification of creator and card names and allows deletion (without check-back) of lines of the search results by clicking.
</text>
</content>
<content>
<layer>background</layer>
<id>28</id>
<text>Sorts the strains in field "Search results" by their order in the strain collection (box/position).
</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>L├╢scht Suchkarte nach R├╝ckfrage.</text>
</content>
<content>
<layer>background</layer>
<id>44</id>
<text>At a new search, a search result card like this one is produced; to complement a search card, go to the search card with ΓÇ£Add to searchΓÇ¥. The newly found strains are annexed to those already in the list.
The result can be arranged by their order in the strain collection (box and position).
The card will be deleted (after check-back) on closing, unless it has been saved. To save, enter creator and name of the card.
The field "Survey" is designed for any text for comment, e.g., the search criteria used.
“Modify search results” removes the write protection of creator and card name, which can be modified at will. Additionally, it enables to delete strains from the list "Search Results" with a click (and without a check back). Otherwise, the clicked strain is displayed the strain will be displayed with genes, name, plasmid… in separate fields on a separate card. In this view, the list of search results can be browsed.
Strains can be added by copying a strain form a box and inserting it by clicking the list of search results. Browsing the search results is enabled while holding a copied strain. Adding and deleting strains allows to produce selections of the strain collection, e.g., for a publication.
The list ΓÇ£Search resultsΓÇ¥ can be printed or exported as a "text only" file.
For printing, a suited report is used automatically. Its field sizes have been optimized for the LaserWriter, and DINA4 paper size, but can easily be modified for other printers and formats. The search results of the actual card are printed with its name and commen- tary as a header. ΓÇ£CreatorΓÇ¥, ΓÇ£Card nameΓÇ¥, ΓÇ£DataΓÇ¥ and ΓÇ£SurveyΓÇ¥
For export, a name for the file is requested. The name of creator and card, the dates of creation and of the last modification, the commentary in field “Survey” and the result list are written to the file. Strains are separated by return, genes by space, the blocks of additional information (plasmid, alternate names, origin, commen- tary) by tabs (space tab space), which allows an easy alignment with a word processor, Within the blocks of additional information, however, words are separated by option/space, which does not break automatically at the end of a line. It is recommended to replace the option/space with space in using a word processor. A replacement during export would have slowed down the export very much, because the data would have to be read and examined one by one. Mating type "alpha" is represented by ª (option-h). For a correct display, all genes should be set in italics.</text>
</content>
<name>Suchergebnisse</name>
<script>on openCard
global Stammcopy, Paarung
if Stammcopy is empty then
if Paarung is true then
put "Choose first mating partner" into field "Dialog"
else if Paarung is "Zweiter" then
put "Choose second mating partner" into field "Dialog"
else
put empty into field "Dialog"
end if
else
idleCursor("Stammein")
put "Choose register for:" && Stammcopy into field "Dialog"
end if
end openCard
on closeCard
global Bearbeiten
put false into Bearbeiten
set the icon of background button "Bearbeiten" to "Bearbeiten"
put "Modify" & return & "Card" into field "Bearbeiten"
if the cantDelete of this card is false then
answer "Delete this card?" with "Yes" or "Save"
if it is "Yes" then
set lockMessages to true
doMenu "Delete Card"
else
ask "Enter your name, please"
put it into field "Kartenbesitzer:"
ask "Enter card name"
put it into field "Kartenname:"
put "Modified" && the date into line 2 of field "Daten"
